' Blind Boticus is a modified version of A. Boticus
'
'Modified 2009 by Testlund to use touch senses instead of vision (check Disable Vision) and to store to body before repro, and to not move if energy is too low.'
'
cond
start
.fixpos *.fixed mult dec
51 *51 sgn mult dec
51 *51 sgn -1 mult mult inc
stop

cond
*.refxpos 37 >
*.refeye *.myeye !=
start
*.refxpos *.refypos angle .setaim store
8 .fixpos store
-6 .shoot store
stop

cond
*.eye5 0 !=
*.vel 20 <
*.refeye *.myeye !=
start
20 *.vel sub 2 div .up store
stop

cond
*.refeye *.myeye =
*.eye5 0 = or
*51 20 !=
start
314 rnd .aimdx store
51 inc
51 inc
stop

cond
*51 20 =
*.nrg 1024 > and
start
10 *.vel sub 2 div .up store
stop

cond
*.nrg 5000 >
start
32 .strbody store
stop

cond
*.body 5000 >
start
50 .repro store
stop

end
